template_location <- here::here("Code","lib","cafri","R", "model_updates", "historical_eda_template.Rmd")
output_file <- here::here("Code","lib","cafri","R", "model_updates", "2020_02_24_predictors4.html")
knitr::opts_chunk$set(echo = FALSE)
library(dplyr)
library(tidyr)
library(ggplot2)
library(ggridges)
library(kableExtra)
Predictor relationships for WWE, Cayuga-Oswego, Allegany-Steuben, and County3
agb precip tmax tmin twi dem
1 3.4697587 1121.5925 12.92859 0.8456125 5.355704 277.44363
2 19.5579662 1160.2076 15.92774 3.4869194 5.563832 119.10593
3 3.4762709 1216.5747 16.09468 3.9158762 7.975249 83.15464
4 0.3227472 1248.1116 14.86250 3.3499186 16.500410 254.78810
5 0.2649144 921.7726 12.88756 1.5141934 5.761587 530.24988
6 0.4184661 1017.8934 12.49441 2.3197811 7.775458 694.83264
aspect slope lt_nbr lt_tcb lt_tcg lt_tcw delta_nbr
1 301.5513 5.778631e+00 567 3415 2149 -1095 2
2 357.4042 5.147649e+00 633 3590 2567 -1005 -18
3 257.2378 4.851384e-01 451 3548 1789 -1467 -4
4 270.0000 1.272222e-14 581 399 33 44 27
5 131.0539 3.851514e+00 732 3915 3113 -618 58
6 251.2559 5.140557e-01 584 3602 2433 -1255 2
delta_tcb delta_tcg delta_tcw ysd mag chm
1 13 18 -2 0 0 12.018240
2 19 -73 -59 0 0 19.401939
3 -12 -20 -6 0 0 17.933399
4 -12 0 6 0 0 8.598808
5 88 299 211 3 298 9.337243
6 0 12 8 0 0 17.974751
agb precip tmax tmin twi
1.00000000 0.33921055 -0.12829641 -0.12390777 -0.43258823
dem aspect slope lt_nbr lt_tcb
0.18731976 -0.03330817 0.42625512 0.51927622 -0.16219922
lt_tcg lt_tcw delta_nbr delta_tcb delta_tcg
0.23059917 0.35632851 -0.23168093 0.04315129 -0.11475153
delta_tcw ysd mag chm
-0.23955341 0.06346557 0.02854266 0.37034591